 rollout progress "record animation" width:372 height:40
 (
 	progressBar pro "ProgressBar" pos:[4,26] width:362 height:9 color:(color 255 0 0) orient:#horizontal
 	label pro2 "" pos:[120,4] width:140 height:18
 
 ) 
 
 createdialog progress  	    
		
		
		
		list= $Object* as array
		list2= $OObject* as array 
		v=0
		
		for i in 1 to list.count do
		  (
		   
		   aobj=list[i]
		   aobj2=list2[i]
		   aobj2.pos.controller=tcb_position()
		   aobj2.rotation.controller = tcb_rotation ()
		   h=steptime
		   for frame=starttime to starttime+(totime-fromtime+interim) by steptime do
		    (
		      animate on
		       (
		          at time frame(aobj2.transform=aobj.transform)
		          v=v+1
				  progress.pro.value=v*100./(list.count*(((totime-fromtime+interim)/steptime+1)))
				  pro2=(v*100./(list.count*(((totime-fromtime+interim)/steptime+1)))) as integer			
			      progress.pro2.text="processing:" + pro2 as string + "%"

			   )
		      aobj2.name=vag  + "_cloth" + i as string 
					
			)   
		  animate on
		   (
		   at time 0(aobj2.transform=aobj.transform)
		   )
		  )

		
		
		delete list
		delete $Dummy*
		progress.pro.value=0
		destroydialog progress
		
		
		
		
		

